perm filename SETFOR[9,ALS] blob sn#201864 filedate 1971-06-18 generic text, type T, neo UTF8
00100	PROCEDURE WINDOW(REAL ARRAY A,B;INTEGER N);
00200	BEGIN
00300	COMMENT This procedure applies a Tukey Interim Window to arrays A and B;
00400	INTEGER I;
00500	REAL PI;
00600	PI←3.1415926536;
01200	FOR I←0 STEP 1 UNTIL N%10 DO A[I]←A[I]*(1-COS(10*PI*I/N))/2;
01600	FOR I←N*9%10 STEP 1 UNTIL N-1 DO B[I]←B[I]*(1-COS(10*PI(N-1-I)/N)/2;
01700	END "WINDOW";
01800